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EGRITORI AL _ — ae ee - 


Greetings Cortex owners, and weicome to the Sixth issue of the > 
User’s Group Newsletter. In this issues we have six whole pages of 
programs, another feature by Tim Gray, part 2 of the machine coce 
programming articie, and lots of useful information. if you have any 
items of interest then please send them in. We will try and publish 
everything that is sent, although certain items may have to be. 
edited to fit in the available space. We are stiil marketing user 
weitten software, and so if you have written any Suitable programs 
then send us a copy aiong with a full description, and 
loading/saving instructions. We pay royalties for each copy of your 
program that we sell. | 


We regret that we can at present only suppiy our software on 
cassette. We are in the process of installing disc ial and so 
disc software will eventually be avalilabie. | 


For those of you who are still without discs we are planning to 
produce a replacement board for the TMS9909. The circuit has been 
agreed with Neil Quarmby, and he will shortly be completing a 
compatabile version of CDOS. Enquiries about this board are welcome, 
but we cannot state a definite price at present. 


AneGEay wishing to purchase CDOS or upgrade early versions of cpos 
should contact Neil Quarmby at the following address. 


Neil. Quarmby 
9 Moriston Road 
Brickhiil 
Bedford 


NEW SOFTWARE 


THE LABYRINTH OF TRAG is the first adventure game for the Cortex. In 
this text based game you have to explore a series of underground 
rooms and passageways. Your aim is to stay alive by sating and 
drinking on the way, whilst looking for keys to open boxes. Your 
eventual goal is to open the treasure chest, remove its contents, 
and find your way out again. The main problem is that every four 
hours. the caverns flood, and so you must not be slow. 

(Price =: £6.00) 


Newsletter 6 programs wili be avaliable on a tape with the programs 
to be included in newsletter 7. In this way we hope to reduce the 
selling price of the tape. | 7 


HARDWARE 


We have access to most of the chips) required by the Cortex 
expansions, and would be willing to supply them to Cortex users. All 
enquiries are welcome, and prices of some components are shown 
below. | : 


TS 9701 @ £6.50 
TMS 99027 @ £6.50 
TS 9911 @ £25.c0 
THS 9929 @ £22.00 
2797 FDC @ £346.00 
74Ls6iz2 @ 


£25.00 
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BuG BYTES 


This section is for ironing out problems 
which users experience with their Cortices. 
If you have any, problems then we will be 
glad to include them here. If you think 
that you know a solution to any of these 
problems then please tlet us know, and we 
will pass it on. | 


Our problems this time start wath one or two disc difficulties. 


Syd Champkin of Skirlaugh has recently fitted disk drives to his 
Cortex, but finds he is unable to fully load the CDOS 1.20 operating 
system. When operating: the “BOOT” command the drive loads track "GO" 
as normal, but when the operating system “core” attempts to load, an 
error =message, "Controller Error" is displayed, and the machine 
aborts. the search. Syd has. tried changing R7O and C29 to no avail. 
Can anyone offer any words of wisdom, and maybe someone local to him 
could heip him by checking his. disk an a working system. 
(5.Champkin., 146 Cawood Crescent, Skirlaugh, North Humberside. J] 


Hrd. Stephens of Northumberland cannot savelor load) to tape when 
using CDOS 1.11. Upom attempting a load the message “TAFE READ 
ERROR” results... Any suggestions would be greatly appreciated. 


C.N.Sedmell of Christchurch is having trouble with a timing related 
fault somewhere: around the TMS 84500, which corrupts the RAM/VRAM on 
a cold start. a any nese. will be gratefully received. 


Julian Terry of Rainham would like some help with a programming 
problem. He has tried to use FO?2O to store WP registers for call 
routines, But upon passing more than one parameter the error 
"ILLEGAL DELIMITER” occurs. | | 


Finally in this section, a couple of SuggrSttens for improving the 
quality of the Cortex display. 


Ar .0.H.Hulipe of Staffordshire suggests that by parting the inner and 
screen of the coax cable at the aerial socket end the picture can be 
“pulled™ to the right. This would relieve the common problem of left 
Picture shift in GRAFH mode. 


Mr.A-Hitliams of Sydney, Australia tells us that his display 
problems were caused by interference between the power supply cables 
and the disc interface cable. Hence to solive this he merely moved 
the cables around within the case. 
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rFRrooreAris 


The following programs and routines have been sent in to us by 


Cortex users. Our theme this time seems to be biased towards disc 
software. We would, however, like to point out that our selection is 


obviously limited by the type of software sent in. We welcome ail 
contributions, no matter how SnOE Ss and will try to include as many 


as possible in each issue. 


Following - ey from his cpos sodi fication in issue 5, C.4.Gale has . 


also ‘sent another program, with a comprehensive explanation. 


The reason for the development of this program was the eccasional 
Overwriting of a disc. Therefore it was decided to en neat the 


workings of ne disc drive handler. 


The disc. drive ‘handler keeps an account of the sectors in use in 


the form of a bitmap, which is stored on track 1 of sector 0 of the 
disc. Each sector on the disc is represented by one bit ina word, 


i-e.track O&O sector 0 is represented by word oO bit Oo. A set bit 


represents. a sector in use, and a clear bit represents a free 
sector. The first two bytes represent the sixteen sectors of track oO 


which holds the boot file, and these should all be set. The next two 
bytes represent the sixteen sectors of track i which noid oe bitmap 
and the directory, ali of which should also be set... 


CDOS thens fills. the disc in a sequential manner, starting from 
track 2 sector 6. Details of the file are stored in the directory 
which starts at track 1 sector 1. The first word indicates. whether 
that. entry slot is in use,and a zero indicates that the entry slot 
is free. If the file is. a program,BASIC or code,. then the first word 
is set to ASASH for autorun, and SASAH for not autorun. Any other 
value indicates the record size of a relative file. 77 7 


The next eight bytes. eantain the title of the file in ASCII format, 
followed by the BASIC pointers in the case of a BASIC file, or the 


beginning and entry. point. for machine code. The word starting at 


byte number 16 contains the length of the file. The word starting at 
byte 32 contains the disc address. followed by the number of 
contiguous blocks from that point. The next seven pairs of words are 


similar and this allows the file to be i al into eight different 


areas on the disc if necessary. 


The program starts by di ceilaying the eetie. and then asking. which 
drive to use. The drive number is used to index into a list of 


- pointers, which indicate the locations in memory where the. discdrive 


Parameters are stored. The parameters contained in memory include 


the number of blocks per track, the total number of blocks, the 


number of files, the number of peace. the number of sides and the 
number of bytes per sector. It was decided to use these parameters 
rather than fixed values so that She: program will neperusey work on > 
all density drives. 7 | 


The program then calculates the position of the bitmap and bPectace 
and passes this information onto the read/write disc routine. The 
bitmap and directory are retrieved from the disc and stored from 
location AOGOH onwards. A temporary buffer starting from Location 


 9O00H is cleared and another bitmap is created using the information 


from the directory of the disc. A check is built in to 1252 ashe any 
disc address indicated By directory entries are valid. 
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When the second bitmap has been created, it is then compared with 
the actual bitmap from the disc, with any discrepancies being 
listed. If any a discrepancy is found in the bitmap for the bootfile 
or the directory track, the bitmap on the disc can be set to all 
Tones" using the disc inspect utility. If a discrepancy is found in 
a file, then the best course of action is to copy all of the files 


to a new disc using the “filecopy” utility. 


7i00 
F104 
7108 
716C 
FiOE 
7ii12 


7114 
7116 


7118 


FIA. 


7iilE 
7120 


7i24 


7126 


7i2B 


712A 


712ZE 
7132 
7134 


7136 


Fiza 


713C 
f13E 
7146 
7144 
7i48 
71i4C 


7L4E 


7150 


7154 


7is58 
71iSA 
71iSE 
7140 
7164 
7146 
7186 
718C 
718E 
71790 
7174 


START :. 


DRIVENO: 


GKi: 


AGAIN: 


NEXTFILE: 


7178 


FIs A 
FIC 


Fi7E 


7180 
71iB2 
7186 
7188 
7iBA 
7i18C 
7i90 


OR2: 


LWT 


MSG 
MSG 
EKO 


ANDI 
MOV 
SWPB 


SLA. 

MOV 

MOV 

MOV 

MoV 

INCT 
MOV 

CLR 
MUV 

MOV 

MFY 

DIV 
MOV 

MP Y¥ 

MOV 

MOV 

Lt 


eFOLO 
@> 7000 
@>7/016 
Ri 


Ri, ,OFOO 


Ri,R2 

R2 

R2,1. 
@>4=82(R2) ,RS 
#R3+,R4 
#R3+,R9 


RS, @>70FE 


RS 
#R3,R1Z 

RE 

@>4372 (R2) , RS 
@50006(R3) ,R5 


R4,R5 


Ro,RB 
@>6362 (R2) RS 
R3,R4 
RS,R2 

RS ,R4 

RO ,. -O000 
RS, sAGOO 
@>61806 
RO,RO 
OK i 
@>6550. 
Ri ,. 9000 
#Ri+ 

Ri, >A00O 


AGAIN 


Ri, +7000 
#AR1I+ 

*Ri 

RS, }O08O 


#RS, #RS 


NEXT 

@>0022 (RZ) ,R4 
@>0020 (RS) RS 
NEXT 
R5,R4 
R4,4 
R46,R8 
OK? 
@>7028 
BADADD 
R46,R2 
R2,1- 


RS, >OO0O0F 


R4 
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print title 

print. "which drive" 
get drive number 
mask ASCII 


put in lower byte 


pointer to drive 


blocks. per track 
total number of blocks 
number of files 


pointer to. drive 
number of sides 


number of tracks 


bytes per sector | 
Mcalculate disc address © 
Jof bitmap ~~ 7 
no. of Bytes to transter 


actual bitmap buffer 
get bitmap & directory 
check status 


print. error message 


Clear buffer 


set bits for bootfile 


- set bits for directory 


get file directory 
no file? 

number of blocks 
disc address | 


is it valid disc address? 


print “invalid address" 


calculate which block 


4192 
7196 
7198 


FIFA 
719C 


FiSE 
Fide 


7iAz 


7144 
71A6 
71A8 
71iAC 


71iBO 


7iB2 
71B4 
7iBS 
71BA 
71BC 
#100 


7104 


71C8 


7iCA 
7ictc 


71iCE 


7iD2 | 
71ib4 


71D6 


71DA 


71DC 


FIDE 


71EO 


71LE4 


fLES 


71ES 
7LIEC 
VLiEE 
FLIP? 
71F 4. 


7LFS 
7iFA 
V1IFE 
7200 
7202 
7206 
7208 
720A 


MORESEC: 


MOREBLOK: 


SETBIT: 


NEXT =: 


OK 4: 


NEXTBLOK: 


OKS:: 


ANOTHER: 


BADADD: 


NEXTCHAR: 


R&, >B000 


RS,R5 


SETBIT 


R6,1 
RS 


MORESEC 


SETBIT 


R&,1 
SETBIT 
R2 

RS, -BO00 


R6, 229000 (RZ) 


R4 


MOREBLOK 


RS, }0040 
Riz 


| NEXTFILE 


Ri, >AQ0O 
R2,.>9000 


@>70FE,RS 


R34 


#RI +, 2RS+ 


OKs 
@>7044 


#R1+ ,#RS+ 


oK4 
@>7066. 
RS 


#R1i+,. #R2+ 
OKS. 


@>7088: 
RS 


NEXTBLOK 


@>70A6 
Ri | 
Ri, >5900 
DRIVENG. 


Ri, >4E00 


ANOTHER 
@>0080 
Oo 

RS,R& 
RO, >0007 
R& 
*RS+,R7 
R7 


RO] 


NEXTCHAR 
NEXT 


set bit in map 
any more blocks? 


next file entry 
any more files? 


‘compare actual to 
calculated bitmap 
bootfile error 


directory error 


file error 


ask if another disc 


yes? 


back to monitor 


print file name 
with bad address 


The 


Although 
different 


thus 


suitable 


next program 


we 


have 


that 


is 


by J.4.Terry ,and 
already featured a 
it produces an image with hidden lines ommited, 


is a 3D plane plotter. 
3D graph program, this is 


adding to the 3D effect. There is also the facility to calla 


newsletter. 


screen 


dump 


routine, 
er. The program is written entirely in BASIC, 
computing power of the Cortex. 


such as previously featured in the 
and shows the 


ints 


1OG00 
i9ia 
i370 
1410 
1420 
1430 
1480 
1500 
is1ia 
1520 
1520 
13540 
i530 


1340. 
i570 


1SBO 
LS9o 
1s0G 
i610 
1420 
14306 


1640. 


1450 
1640 
1470 
14680 
i730 
1740 
1730 


1760 


790 


ig00, 
1810 


1B=0 
1840 
1850 


16460 
187G 


isso 


1a970 


L300 


19io 


1720 


1930 | 


1740 
1950 
1940 


1970 


iva 
1990 
2020 
2OSO 
— 2040 
2050 
2050 
2070 


REM #*« 3D PLANE PLOTTER ** 
REM *«* BY J.M.TERRY ** 

REM * Initiaiisation * 
PI=3.14159246334 DEFINE PI 


DIM #FUNC221,UPY(02551,LYC2551 /DIMENSIGN VARIABLES 
REM « Command level * : | os 

TEXT 

FRINT @ =D PLANE. PLOTTER” 

FRINT | 

SOSUB 2090 4GET INPUT DATA 

GOSUB 14650 ‘SPLOT THE GRAPH 


PRINT @(0,23):"Do you want a screen dump? (¥/N) "5 
INPUT #1;21NP SREAD ae GNE CHARACTER | 
PRINT @(O,23):" : | oo 
IF #INF="¥" THEN GOTO 1600 | 
IF #INF="N" THEN GOTO 1410 

GOTO 13540 /GET A VALID INPUT 

GOSUB 1950 /DUHP SCREEN TO PRINTER 

TEXT , | | | 

PRINT "Bo you want to piot another function? t¥/N) "5 


fCLEAR $.D.HESSAGE 


INFUT #15; INF 

IF #INF="Y¥" THEN GOTO 1490 /RESTART PROGRAH 

IF #$INF="N" THEN GOTO 16/70 fEND PROGRAH 

GOTO 1420 | 

END | 

REM * Plot graph routine * 

GRAPH 

FOR A=0 TO 2355 fFILL UPPER ¥ LIMIT WITH 231 T@ ALLO PLOTTING 
UPYDAIHi1F1 

NEXT A. | | 

FOR Z=5 TO WID+& /2Z-AXIS COUNT FROH HEAR TG FAR 
FOR X=5 TO WID+& /X-AXIS COUNT ACROSS SCREEN © 


REM LINE 1820+ONLY FRINT IF CORRECT LINE POSITION ‘REACHED AND 
AND DIRECTION SELECTED ~ 
IF (DIR< >90)*(MODL(Z—-5), DNNI=0) OR (DIR<: 
>} THEN GOTO i820 > | 
VZ=LZ+(Z-5) *#(UZ-LZ) /WID: UX=LX+ (XS) #(UX-LX) /WID /VIRT. XZ 
PTX=X+Z"¥ZTX /PLOTTING VALUE GF X 
=FNACVX,VZI1 /GET Y¥ VALUE AT X,Z CORRECTED FaR VERTICAL TILT 
GoTo 1870 
IF Y<LY OR YoUY THEN GOTO 1930 /OFF SCREEN POINT NOT PLOTTED 
PTY=186-184/ (UY-LY)# (Y-LY) - ~Z*ZXV  /GET PLOTTING VALUE OF ¥ 
IF FPUY2LYCPTX] THEN LYCPTXI=PTY : GOTO i710 f/IF POINT IS 
VISIBLE BELGH ANY POINT ALREADY THERE, THEN PLOT IT 
OIF PYYSUPYCFPTX]: GOTO 1930) /IF POINT HIDDEN THEN DON’T PLOT © 


>BG* (MODE (X-5) , DNNI=0. 


“PLOY PIAGET Y SPLOT POINT ON SCREEN 
IF PYTY<UPYCPTAI THEN UPYEPTAI=PTY /SAVE IF NEW LINIT 
NEXT xX : 
NEXT 2Z 
RETURN 
REM * Screen dump * 
REM ~ 
REM Call your: screen Bane routine here 
REM 
FRINT “The function : F(X,Z)}=";$FUND0;193 


PRINT "“X-range is "sLXe" to "six 
PRINT "“Z-range is “"3LZ3" to “3UzZ 
PRINT "Y-range is “3_L¥3" to “;UY 
PRINT "Vertical tilt is “;2ZxkV 
FRINT “Side tilt is "3ZTA 


2050 RETURN 

2090 REM * Data input routine «* 

#140 INPUT "Flease give a function of Y in terms of X and 7<0A><0A> 
<OD>":#FUNCO] f/INPUT FUNCTION 

2150 REM * Get max and min axes values * | 

2160 PRINT "<GA><OA>Please give the value of" 

2170 INPUT " lower X i"3LX3" upper X :":UX /GET X COGRD RANGE 

2180 INPUT " lower Z :"3LZs" upper Z :"s3UZ fGET Z COORD RANGE 

2190 INPUT " lower Y i"sLY¥:i" upper Y i"suY  /GET ¥ COORD RANGE 

2200 INPUT "<OA><OA>Please give side tilt O to i:"3;ZTX 

2210 INPUT "“<OA><OA>Please give vertical tilt 0 to 1i:"3;ZX¥V 

2220 PRINT “<OA><O0A>DoO you want lines in both X and Z directions?" 

2250 INPUT #1; "If yes then enter Y, else enter X or Z"3#DIR 

2240 DIR=ASCCSDIRI | 

2e00 IF DIR<>88 AND DIR<>89 AND DIR<290 THEN GOTO 2220 

2260 INPUT "<OA>How many lines do you want in each direction (1 to = 
OF?) "; DEN | | , 

2270 $FUNCO; 1]=/"2290 DEF FNACX,Z]= " /CREATE LINE STRING. 

22830 ENTER #FUNCO] ENTER LINE INTO PROGRARN 

2270 REM * This line is replaced by the ENTER command «* 

2500 WID=245/ (1+ZTX) LCALCULATE X PLOTTING DISTANCE NEEDED © | 

2310 DNN=INTC(WID) /(DEN-1) 1] /CALCULATE SPACE BETHEEN PLOTTED LINES 

2329 WID=DNN*XDEN-DNN.. /ABJUST WIDTH. SQ THAT ALL. LINES ARE PLOTTED 

2o00 RETURN | | | 


#.D.Eaves sent in the next program and the following explanation of 
what it does. | | | 


Some programs which use BASIC and M/C require that the NEW command 
is used to load the BASIC at a higher address. so that when the M/C 
is loaded it will not overwrite the BASIC. Examples of this are the 
games. PENGO and FIREBIRD. On the tapes. the NEW address is shown as 
Part of the loading instruction. However, if such a program is 
transferred onto a disk then there is no written instruction and the 
program can be loaded without first typing NEW xxxx. Obviously the 
program will not work as the M/C will overwrite the BASIC. Even 
typing NEW xxxx does not overcome the problem as the BASIC. checks a 
location to see if the M/C has been loaded. However, if the BASIC is 
at the default address then this check is sometimes fooled by 
reading part of the BASIC program, and the M/C will not be loaded. 


The following xample shows how a program can be loaded at any NEW 
address, and if it is not correct wiil reload the program at the 
correct address. The default NEW parameter is unaltered so that when 
the program is finished the Original NEW address will be selected 
just By typing NEW. _ 7 , | 


Memory location EDO4 contains the address at which a BASIC program 
Willi be loaded {This is the NEW address + i4H}. Location EDOS 
contains the “xxx specified by NEW or the default address. Thus by 
checking the value of the word at EDO4 and modifying if necessary, a 
Program can be loaded at the correct address. (see line 6 in the 
Gxample)}. Not altering the word at EDOé leaves the NEW default value 
intact. | 


If the word at EDO4 is not correct then the program goes to the 


subroutine shown in the example at line S000. This routine resets 
the check location to zero (line 8005), and then reads data —Eo 
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| r 
assembie the M/C shown in the example below the BASIC. If the M/C is 
assembled at 4090H then the first four data lines in the BASIC are 


=s o 


Valid in ail cases except the data for the gr address Marked *. 


The last line contains the program name, this case FENGO 


terminated by OO. (see the routine on 5.5 of eeqciee ces 111. by Tim 
Gray.) The branch to OFi8 at 6098 initialises the BASIC memory at 
the new address. 


Please note that this routine works only with disk drives as it uses 
part of the CDOS software, and in any case would be incapable of 
rewinding a tape! However, the memory check at line 5 and the 
message at line 8000 can be used with any data storage medium. 


EXAMPLE 0 OF AUTOMATIC ‘NEW: 


4 MOTOR ©) | , a phe Arig 3 

3 IF MWDCOEDO4H1< 209014 THEN GOTO 8000 /check BASIC start address 
& IF lesional THEN GOTO 30 £fcheck if H/C leaded 

8 COLOUR ib, _ | 


Boog 7 "<OCrYou ae: to type “MEW xxxxM UEP" ICL do it automaticall 
you a 
8005 MWDLO7810HI=0 fset to @ as H/C net leaded 


BORO READ Ci,C2: FOR I=Ci TO CS STEF 2 fassembie H/C 


6052 READ C: MWDLII=C: NEXT I 
80353 CALL Ci freleads program at nen address 
3654 DATA &090H,. 60AE : 


$056 DATA 513, 9014H", -—14555,-4860 


BOSE DATA 1696, S04, 1217, 514 
80460 DATA 24746, 523, 128, 1120, 246012 


~BO62 DATA. 20549, 20039, 20224 | {program rare 


MACHINE CODE TO RELOAD PROGRAM 


6090 LI Ri,?9014" - /set BASIC start address 

6094 MOV R1,@>EDoO4 | 

60°76 BL @701FS  #execute NEN, default left intact 

609C. CLR Ri 

609E LI R2,>460AA  faddress of program nane start 

60A2 LI Rii, +0080 fload pragres 

50A6 FB @-4597C | 7 

50AA DATA 35045 /ASCII codes of program name, G3 terminated 


60AC DATA 245647 


60ARE DATA +4F00 


Well that’s ail for this issue. If you have any interesting programs 


or routines that you would like published, then please send them in. 


We would ask that you also send a. description of the way in which 


the program works, SO as to heip other users. 


The programs UbplTened im this issue will be available on tape. 


Please see page = for details. 


USER INFO 


John Mackenzie has written recommending the ‘“COMMTEX*® communications 
package by MARKRO SOFT. [t is very fiexible and written/structured 
in such a way that makes it very adaptable by the user. For users of 
WORTEX, there is a ° special version of COMMTEXK which receives and 
sends WORTEX pages. John will suppiy this free to any Wortex user 
who sends him a disk with Commtex on 14.45 proof of purchase of 
 Commtex.) . 7 


John aiso informs us that version 1.5 is now available. To get an 
updated copy send your original Wortex disk back to him. 


For those of you who are new to the user group WORTEX is a complete 
word processor (disc based) for the Cortex. For details write to; 
John Mackenzie,4 Werston Close, Malivern, Worcs. WRi4 SNH 


COMMTEX is available from; a 
P.Roe, 33 Broughton Road, Croft, Leics. LE? SEB 


PAiizlip Marsden from teeds wrote in search of some information. He 
has bought the memory card from MFE, and plans to make a 
half-megabyte board. He has thoughts about a RAM disc routine to 
allow faster disk access, and wonders if any other users have 
already achieved this. | : 


In addition to this, he would like to produce an 80 column screen 
output, and would like any relevant information on the screen 
output. | | 


If you can help with either of these requests then we will be giad 
*O pass on information. 


fadisiav Vig of Switzerland wrote to us asking if aryone else is 
using the MDEX software. He would like to exchange some information. 


A.&.C.8adcock wrote to express his praise for CDOS, particularly 
because it is easily modified, and well supported by its author, 
Neil QGuarmby. He also uses the MDEX system, and asks the following 
questions; — . 7 _ | 


i} Has anyone a utility to read and write to CDOS discs from MDEX, 
or to transfer files intact (like ‘“RDCFPM’ does for the MSDOS) 7 


2 Has anyone ai utility to read and write to cassettes whilst in 
MDEX, so that I can tape software for safer archiving. 


=) Has anyone a fix for the bug in the MDEX BASIC interpreter that 

| prevents the SAVEX command from saving compiled. code. The 
interpreter recognises the first 4 letters as a SAVE command 
which it rejects as source is no longer present. Although the 

BASIC is a simple one, it would ‘be useful if the compiled 
feature could be exploited. Ferhaps the command table could be 
patched to rename the command 
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FEATURE  : ADDING EXTRA BASIC STATEMENTS ( Sy Fim Gray } 


BASIC statements are stored in memory in encoded form. When entering 

BASIC program lines,a check is made to see if the statement entered 

iS included in a table during the normal syntax checking procedure. 
When the name is found, its position from the start of the table 
becomes the token in the program. Now when the program is running, 

this token is used to access a routine start address in another 
table, and a branch made to the start address of the statements 
routine. |. | 2 : 


Having said all that,it’s possible to add extra statements by adding 
extra names to the name iocokup table, and start addresses to the 
start address table. | 


As some statements have more than three letters there are actually 
two name tables, one for the first three letters and one for the 


rest of the name. A list of all the tables is included. Note that 


this is the list after loading CDOS, and includes some changes and 
extra words used By the file system. . | | 


The first table for the name ore ei at 3020H,and is a 16 bit word 
table encoded as. follows:-— | 
 b1lE Oo : bit iS 
00000 O00 00 00000 oO a | _- 7 | 
i if set then this. name has more than 3 letters 


——-— ascii code for ist letter 
tooo eemn—— 45011 code for snd letter 
a a a, code for <rd letter 


t 
' 
3 
g 
3 
J 
a 
| 


‘-Ift the LSE of the word is set to one, eHea the eaeaad: name table is 
used to encode the second part of the ame. FHS second table starts 
at SADAH. The start address for the routines are in a table starting 
at SFCCH. Once your new. statement,name and start address is included 
in these tables, any. program can use then. 


When the program comes across. your new statement it. will branch to 
the routines start address. This is a direct branch so your routine 
must preserve some. of the registers, especially R& and Ris. On 
completion, your extra routine will have to branch back to a 
iocation to continue running the BASIC program. This branch back 
address is different depending on the type of parameters used. I 
don’t know all the rules. for this part of BASIC, but I have found 
that. some return addresses are GFSC SFI0 SF34 estc—-you will have to 
experiment. | a | 


Also included in the table lists are the tables for functions and 
some more three letter statements. 


STATEMENTS 


 ADRi WD 1 ADR2 WD 2 TABLE SADR NAME 
SASE ASCF SADA OOL1E SFCC 24FC GOTO 
=AS0 SBCF ZADC OCOAA SFCE 2500 GOSUEB 
2ASS FROB ZADE OOOA SFDOQ SFDO ELSE 
SAS4 69464 FAEG 4700 SFD2 SFS4 REM 
SAS6 PSCC SAES FFSO SFDA 2146 FOR 


6'll 


STATEMENTS 


ee a ND NED ARS NTS CED ASD ES SY OR NER AD SEIT LD ELE ND SOND SAND SNES AOROANY HOOD COPUEEND GARR WARES UND IONE GEDND GND NUE SEY SORMREND unin SEVERED CONGR RENE SERS 


a 


oOon0g = 


AQ49 3 
CisD 3 


7435 
4CAl 


= 6047 2 
ORD? 3 


B93 


0965 = 
9965 2 
Alias = 
= FD27 ; 
 4BAB 


SA59 


| BOST 
» 9845 


iCCB 


 2EDD 
= 7065. 
—Ag45 


A28H 


2 7BSi 


BSAB 


4307 
3 F541 
. OCBF 
> C169 
| 454F 


OAO?7 


2 6&DSD. 


ASF 


| 7165 


| 9427 


OAS? 


fei <4 F 
ALS 


27 


7 BCS 


* ODE? 


fos 
A=DEB 


Occ. 


SCiF 


; # BO? 


AL4eE 
ADSO 
(33 
Moo 
O00 
OGG 


OCH 


fr. (3034003 


SAFE 
e=1S 66) 


SHO? 


SHO4 


SBOS 
SEOs 
SBOA 
SBOC 
SBOE 
SERIO 


‘SEA2 
SBi4. 


2Bié 


3818: 
=B1A 
28iC. 


SBLE 


SBZ0. 


SEZ? 


SB24. 
SEZ6. 
SH28 
SB2A 


2520 
SESE 
SESG 
5 = 
oRi4 
SBS 
2b38 
eT et 
SH3C 
SHE 
BAO 
sha 
SEB44 
3b456 
SBAR 


09000 = 


4, 0002 = 
O75 = 
- O49E 
OSitC 3 
© OO18 = 
HOO0s8 = 
OSA. 3 
OoOOon SF 
S3EO Ss 
74Aa 3 
OOO 
O0S5B 2 
000A. 3 


000A 


OOGA 


——— we 


=Coe 


OOE4 


(6BCB = 


OOo 


0488 
OOS. 
ASDB 
So5E 


O1L4eE 


O220 


0028 


OO28: 
0024. 
7144. 
oOo7e: 
O=6A- 


2D12 
9160 
oor 
0028 


0028 


0070 
oOigas 


O495E 


O1é6C 


OO1c 
O164 


036903 
Oag0n 


£3¢ 32383 


O00 
OHOOG 


ObOD 


OOo 


0Oo0G 


3FFE. 
4000 


4002. 
4004 


F006 
4008 — 
400 


400C 


400E. 


410 


4012 3 
4014 


4016 


4018. 
401A 


4010 
4O1F 


4020 


4022 


474 


4a27S&: 


4025 
4a24 
4072CE 
OSE 


223.583 
4052 
4034 
4034 
4058 
4028 


bAGO 
4700 
SAEO 
6AC4 
0G 
OOH 
oo00 


CUI 


HOG 


1343113 


BATA 
NEXT 


- ERROR 


PRINT 


CALL 


LOAD 


INPUT 
| READ 


RESTOR 


RETURN 


STor 


_ UNIT 
‘TIME 


SAVE - 


> BASE 


ESCAFE 


. NOESC. 
- RANDOM 
- BAUD 

x ENTER 
Peer 
.. UNPLOT 
3 COLGUR 
; PURGE 
4 GRAFH 
> FEXT 

: WAIT 
3. CHAR 

> NUMBER 
: LTST 

. RENLIM 
SPRITE 
5 SHAPE 


SPUT 


| SGET 
BOOT 
_ SWAP 


CLOAD 


MOTOR 


CSAVE 
OPEN 
CLOSE 
GET 
PUT 


6:lal 


wee Me fe ee | =—N 


oe ted 


oes wee ot oho 


ot om hw ww) on a ot on mam an oan a et - 7 ee tt om oe ne me an wm we ee ww an es tae any 346 ton poe ows on on 108 one 0 as om ins on ooo nbs ms tor ee mom mp aan ons ~m on bes ee 


are 6 ke tk om =e et ors ot 


SAAA 
SAAC 
SAAE 
SABO 
SABS 
=ABS4 


SABS 


SARS 
SABA 


SABC 


SABE 
=ACO 
=AC2 


SBA 


SB4C 
SB4E 
SB50 


=BS2 


SB54 
SESS 
SB58 
SBSA. 


s2Rol 


SBE 


SB60 
SB62 
ShS4 
SB&6 
SB65 
SBOA 


i mtn 


JZB6E 


=A 
ot = a 
oY 4 
aB/5 
2BfS 
3E7A 


5 = es 


oh SE 


cS mt 


-mi 
—% E < ee 


0000 
72C0O 
se 40 
oil 48 
BoC 
eo 
CHO 


MOO 


A2P44. 
1486 


2486 
46954 


2A. 


4O3E  - 


40409 
4042 


} 4044 


4044 
4045 
4048 
404C 
AG4E 


4050 — 


4052 
4054 
4036 
4036 


4058 — 


405C 
405E 
4060 


FUNCTIONS 


Feg2 
fieoc 
iCc2 
7o0S 
FBCS 


34604. 


Oceac 
ASP2 


oEDS 
cose 
7266 


9446 
FE464 


iAéa 


7136 
ALZ44 
1436 
2486 
695A 


‘25DA 


7136 


40D 


FBEO 
5206 
2=DA 
CA 


a ay 


003903 
fC} 


CHONG 


48CA 


45CL 
46Cr 
48D0 
438D2 
48D4 
48Dé4 
4908 


4SD4. 


48DC 
46DE 
48E0 


4052 


4354 
ABES 


48E8 


40EA 
4B8EC 


4S5EE 


46FoO 
48F2 
4BFa 


45FS 


2 oe 


46F9 


43BF 4 


45FC 


46FE 


4900 


4902 


2466 
29C8 


2936 


iSn4 
5246 
4A28 
ZATA 


2440 
wOSSd 
2482 


Ser 


tod ted 


S3E6 


24it 


3123 
SO 38 


4E5E 


iFEE 


iFC4 


o7e4 


2988 
iF7C 
LF GE 
iF4A 
iBiA 
248 


67138 


0g 


OOO 


a ean! 


0330303 


Ce 


ABS 
ADR 
ASC 
ATN 
cos 
EXF 
FRA 
INT 
LOG 
KEY 
SIN 
SOR 
Sys 
Tic 
SGN 
BiT 
CRE 
CRF 
MEM 
MWD 
LEN 
MH 
FOS 
COL 
MOD 
EOF 


GHG T Tires 


The first tip this issue comes from A.R.C.Sadcock , and is concerned 
with the RGB interface circuit. Upon building this board it oniv 
gave out black. To solve this he adjusted the biasing of TRE, TRiz, 
‘and TRie6. To achieve the correct colour balances he changed R2t, RET 
and R48 to 1kKo. | | 


Mr.Badcock would also like to warn users not to do the "3.5K FREE 
RAM" mod, as this is a non-reversible alteration. By installing the 
memory mapper chip, with no PCB changes (other than removing Links) 
all 4K is accessible under software control. — | 


Prem Holdaway is one of cur newer members from London.He has been 
going through the older newsletters, and has this suggestion tor 
correcting the lower case data from issue = (Andy Rendall” Ss letter). 
Line 30 should read; | 


GO DATA =,-28087,9942,7,4673,1024,35,-28624 , 9784, 164655 ,4141,8960 


Bill Eaves has two tips about CDOS. In issue 3 page 5S there are some 
suggested. modifications, which do not apply to CDOS i.2. This 
version already has an auto-load facility which loads a file Calied 
AUTOEXEC from the BOOT command. The routine which performs the 
auto-ioad is situated at 6940H.. If users of CDOS 1.2 wish to load 
filenames of there own choice the hex ASCII codes should be entered 
at 49535H to S935EH. If a filename of less than 83 characters is used, 
it should be terminated by OOH. 


Bill also informs us. that certain programs will not work properly 
after CBOS has been loaded. The problem is that some programs were 
written before a way was known to correct the COL function, checked 
pixels for the latest foreground and background coliours. CDOS 
corrects the fault se such a program checks for the wrong colours ! 
The simplest way {though perhaps not the most elegant} is to set 
Location iDi2H to EE9SH which is the value when the Cortex is reset 
or switched on. Remember to change the the value back to FLi20H when 
the program has finished. CDOS 1.2 performs the COL correction at 
Location 49EEH. 


Julian Terry telis us that printing character iH will stop the 
cursor from being piotted. Unfortunately there is no way of getting 
it back without clearing location ED6AH, as reported by Robert in 
newsletter =. | : | 


A ED ST AR SEER NOES ATED VED SOR OEP ET AY EE CENEY TED SOLD ESS SOY AS ES NS SENS STEED SED SY SD ENS SESS SO ED SEY ENTS EY ND OED GE! GENE) GEES SERED ES CEES nel SERED ENED GER GD <CEEY TEES ES SURRY ED CRE bY SER ED GED SS OEE GHEE wees eee Ct Ee ee ee 


John Hackenzie has a number of points to make about CDOS. 
13 The AUTOEXEC program is useful for holding all the ii 
and debugs to BOOT the Cortex as you require. Here is 3 ii 
for you to add to it. | | 


xxxx BAUD 2,1200 : BASE OBOH 
yyyy CRECi4]=1 : CRFCS1=023H 


ak 


zz 


This wiil set up the AS23532 port to 1200 Baud, tor amend to suit your 
printer) and @ bit. This allows your printer to print all the 
Characters above ASCII 127. Now when you want the printer just type 
UNIT 2. Retype BAUD 22,1200, to. reset to 7 bit. ; 


2) CDOS does not have a system of marking U/S sectors on the disk 
directory during formating. A method of doing this comes from the 
way CDOS saves the files to disk. If during a SAVE to disc you get a 
persistent disk error (ie a sector is faulty}, the system wili have 
already updated the directory. If you rename that file RUBBISH, then 
when next you save to that disk the bad sector is not used. If you 
are very clever you can identify the offending sector, and save a 
very short program over it. - 


3) With reference to the AUTOLOAD program in issue =, if you amend 
the listing as follows then all files wili be listed on the screen. 
with no scrolling if the directory is long. 


If you call this program AUTOZ, then add this last line to your 
AUTOEXEC program: | | - | 


OK £M3 es ix “ LOaD tj 5. id ALITOS iF 
Mow change these Lines; 


40 Pa7et Auto file load from disk i":7 
2iG D=i- | | | 


Save this program as ALTOS. Now copy AUTO? and AUTOS on to all your 
disks. Remember to amend line 2030 for sach disk. | | 


MACHINE CODE FROGRAMMING 


Modes ( by Kevin Holloway 


C21 Addressing. ) 
in part i we dealt with moving data between registers, and 
incrementing/decrementing. registers. We will obviously want to 
access data in the main memory as well, and there are a number of 
ways of doing this. These are called addressing modes, and the main 
ones will be discussed in this article. 


We have waigesdy seen an example of immediate addressing , where a 
register is loaded directly with data (eq LI Ri,?1224). We have also 


Seen register addressing where another register holds the data (ag 
MOV Ri, Re }. : 


The next mode is register indirect addressing - A register holds the 
address at which the required data is stored. Thus if memory 
location 7YOOOH contains our data, then we can load it into R2 by; 


egi) LI Ri,>7000 fLoad RI mith 7FOGOH 
MOV #Ri,R2 ‘Copy the data stored at the address in Ri 
| finto R2 | | | 


The register RE will now contain a copy of the data stored at 


location 7YOGOH. The * indicates that the content of Riis an. address 
at Which the required ests is stored. 


6-14. 


‘ 
In the above example it would have been simpler to use indirect 
memory addressing . in this mode the data is loaded directly from 
memor y . | 


eg?) MOV @>7000,R1 f€apy the data from location 7G OOH into Ri 


The @ sign indicates that indirect addressing is being used. 


Do not be worried if there seems to be so many ways of doing the 
same thing. Once each of the addressing modes is understood, you 
Should be able to see that. Sach one has its own particular use in 
different types of program. 


if we want to use many related data items, say for example, a list 
of coordinates, then we will probably Want to form a table of them. 
To do this we use indexed addressing .This is best illustrated by 
another example. 


ee ee cD ee ED cee eee Dee 


2q3) memory Location /7G00H -—--> [| datagd } 
7001H i datal : 
7002H 7 datas & 
7003H 1 datas ft 
7OO4H © Gutsa.t 


To access one of the entries we could just calculate the relevant 
address, but it is easier to use the start address (7G00H) as a 
reference, and ai register as an index pointer. Thus to load datas 
into register RZ we would do the following; | 
LI Ri, 
MOVE @>7GOO(R1) ,R2 


+r 
“a! 


This copies the data from address 7OOOH+R1(=3), Lie FOOSHI, into R2. 


AS an extension to the register indirect addressing, we may want to 
access several data items which are stored sequentially in memory. 
This may be achieved by using auto—incrementing . 


eg4) MOV *Ri+ ,R2 


The pilus sign following R= indicates that the contents of the 
register are to be incremented by two immediately after copying the 
contents of the address in RS into Re 


If RS=7000H, and the location 7OOO0H contains the Value i1234H, ‘then 
atter Seecitide the above instruction, RE=-i2T4H, and R3=7602 


SO far we have only discussed ways of moving data from one place to 
another (excluding increment/decreament). In the next issue we will 
move on to iogok at how we can perform logical operations and simple 
arithmetic. If there are any points which you would like covered in 
more detail, then please write and let me know. 
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EXTRA FEATURE :MAGIC SQUARES _ , 


Gn our newsletter orogram tapes we usualiy include a short feature 
BASIC program written by our staff. There are many interesting 
mathematical problems which can be solved numerically, and therefore 
are suitable material for programming. It was our intention to 
market a series of such programs, Dut it was decided that it would 
be more useful to print separate articles in the newsietter. 


This program calculates and prints out odd magic squares using very 
simple rules. Any size of square is possibile, although the screen 
Size restricts the display to a 9*9 square. The method of generating 
even magic squares is a 1ittle more complex, and so will not be 
shown here. | 


For those of you who do not know, a magic Square is quite simply a 
square array of numbers in which every row, column, and iong 
diagonal adds up to the same number. (see 19.1) | 


oi 64 fig.il every row,coiumn and long diagonai 
33 7 adds up to 15. 
= er seer 


The method sof producing an odd magic Square is quite simples. You. 
start off by filling in the middle element of the top row with a il. 
You then proceed to move diagonally upwards to the right fiiling 
in successively 2,2,..etc.i{(NB imagine the square to wrap around 
itself. ie if you move off the left side then you must rejoin the 
right side.}. If you come to a squares which is already filled in 
then you move down two, left one and continue as betore. 


10 REM ODD MAGIC S@GQUARES 


15 TEXT | 
26 INPUT “HOW MANY NUMBERS TG A SIDE (ODD) ?";N | - 
20 N=-INTCNI: LF INTUN/21=N/2 =: GOTO 20 ' make sure N ts int & odd 


40 DIM S@(In NI 

2G FOR I=i TO N 

60 FOR J=i TO WN 

7D S@C01,0i=0 | i elflear ali elements of square 
B80 NEXT J _ | | 

FO NEXT I 
L100 IT=i+INTON/21:J=1 
ims) S@QCLI,JI=1 
110 FOR C=2 TO Neen 
i320 6[=iI+1:J=J-1 
140 IF f-+N THEN I=1-N 
i456 IF fi THEN I=I+N 
150 IF dg<1 THEN J=J+N 
i335 IF J:N THEN J=J-N- ee eet | —- | 
i460 IF S@QLT,J1<>G THEN J=34+2:1=1-1:607TG 140 ' if new positien full 

then move down two, left ene and try again 

iéS S@C1I,JI=c£ ! new position empty, so set te count value 

70 NEXT C . 7 | —- 

17S REM PRINT MAGIC SQUARE 

180 FOR I=1 To WN. 
190 FOR J=1 TO WN 
200 PC CLl#2) , (3423); 5001,77. 
210 NEXT J a 
22 NEXT I 


set i,7 te middie of tap row 

set this element to i | 
rest of elements 

move diagonaily upwards and right 
aliow for wrap-around 


& we .- + vane 0} le 
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LIke TEs 


This is a Werd Processor for the Cortex. It runs under COS 
1.20. The system runs usina Twin 48 track siwale sided 
single density disk drives. Gperation with one drive can be 
hyve o. 

Mates 1. Inreut text | 

2. InPut pase fram disk 

3. Return input text 

+, View disk Page 

5S. Save Page to disk 

6. Print Page-pages. — 

Y. SPellind check “Creduires SPeltex 2. 


FUHCTI OMS 
1. Text inPut with Full chapacher editina 
2. Passe formating with: 
a. Ruto Pase number 
kh. Center text oPtian 
©. Right justify oPbicon 
d. Rite left Justification 
e. Left marsin cantrol 
f.. RLGht marsin control 
2.. Auto. return. 
Ae. Wer: wrap 
i. LS Tah markers 
J, Paae Leneth cantral 
kK. Page edlitina: 
2. Capy frem disk Paae to memory Page 
4... filtei psge Printina 


x. 15.98 Plus a Si-d blank disk 


SrPELTE* 


The sPelling Checker for Wertex. This: runs. under COOS. 1..20,.. 
The system uses. twin 48 track single sided. disks with drive 
*g" Single Density: and drive *1’ Double Density. CMOTE only 
the: most: recent. version CDOS 1.28 supports. Double Density.3, 


This. ts. a. must for Wortex. users. Comes with shout 7890 words 
and: the dictionary: can 3o uP te around. 20800 werds,. 
Mapes 1... Check Page sPe ling: 
2.. Edit the Dichionarsy: 
3. Return to Wortex 
| 4, Carrect errors 
FUNCTIONS | 
1. View the errors. 
2. Correct the errors 
3. Shere the erroere weed in the dictionary 
4. Add werds to Dictionary dirrect fram keyboard 
J. Delete wards from the Dictionary 


# 18.99 Plus two Siv4 oO Disks to) 


wf SBS Pach enti = 
4+ hlerestan Cl 


LIF? 1 <4 =H 


call 86845-65619 evenings 


| GAT 


